home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / DATABASE / TABELLENGTH / !Tabellen / RiscOS2 / Redraw < prev   
Text File  |  1995-12-22  |  1KB  |  2 lines
  1. X*Ý òredraw : ô *** Redraw - Routine ***b!ê waox%,waoy%,lx%,rx%,uy%,oy%l0ê fs%,fe%,sff%,efl%,fields%,h1%,h2%,k%,ypos%v#ç rdy% > 50 … òerror(Ãrdy%) : à€@waox% = block%!4 - block%!20 : waoy% = block%!16 - block%!24⇩1lx% = block%!28-waox% : rx% = block%!36-waox%“1uy% = block%!32-waoy% : oy% = block%!40-waoy%fi5ç anzeige% = 2 … fields% = 50 ⇧ fields% = sp_max%¨h2% = 40+fields%*25²!È− "Wimp_SetFontColours",,0,7¼ç -oy% <= 50 …Æ"   È− "Font_SetFont",fbhandle%Ð3   È− "Font_Paint",,lig_name$,16,waox%,waoy%-40ÚÍäfs% = (-oy%-50) Ŵ h2%îç fs% < 0 …ø   fs% = 0 : sff% = 0(Ì sff% = ((-oy%-50) ◰ h2% - 40) Ŵ 25      ç sff% < 0 … sff% = 0Í fe% = (-uy%-50) Ŵ h2%*)efl% = ((-uy%-50) ◰ h2% -40) Ŵ 25 + 14i% = fs% : j% = sff%>%È” (i%<fe%) ☓ (i%=fe% € j%<=efl%)H   h1% = i%*(fields%+1)R    ç j% = 0 € h1% < rdy%-1 …\$     È− "Font_SetFont",fbhandle%fI     È− "Font_Paint",,red$(h1%,0),16,waox%+rpos%(0),waoy%-80-i%*(h2%)pI     È− "Font_Paint",,red$(h1%,4),16,waox%+rpos%(4),waoy%-80-i%*(h2%)z     j% += 1☓   Í‰"   È− "Font_SetFont",fshandle%—+   È” j%<=fields% ☓ (i%=fe% € j%<=efl%)¢(     ypos% = waoy%-80-i%*(h2%)-j%*25¬     ç h1%+j% < rdy% …¶      ã k% = 0 ¸ rdx%À0       ç rpos%(k%)<rx% € rpos%(k%+1) > lx% …ÊF         È− "Font_Paint",,red$(h1%+j%,k%),16,waox%+rpos%(k%),ypos%Ô        ÍÞ      í k%è
  2.      Íò     j% += 1ü   Î   j% = 0 : i% += 1Îá$ÿ